COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE TAP   
C00005 ENDMK
C⊗;
	TITLE TAP   
	SUBTTL PGM TO INPUT RHYTHMS FROM TTY KEYBOARD  
	ENTRY TAP
TAP:   	JUMP 0
	MOVE 2,[XWD -1,[XWD 17000,1]]
	TTYSET 2,
	MOVEM 1,FOOM#	;PUT RESPONSIBLE TERMINAL # INTO FOOM
	HRRZ 16,16
	MOVE @16
	HRRM B1
	AOS 16
	MOVE @16
	HRRM B2
	SPCWAR 636367
	SETZM TOFF#
	SETZM OFFC1#
	SETZM OFFC2#
	SETZM ONC1#
	SETZM ONC2#
	SETZM CLOCK#
	SETZM LCLK#
	SETZM FT#
	MOVE	1,[400001,,START]
	SPCWGO	1,
	SKIPE TOFF
	JRST .+4
	MOVEI 1,1
	SLEEP 1,
	JRST .-4
	MOVE I
B2:	MOVEM 0
	SPCWAR 636367
	JRA 16,1(16)
START:	SKIPE TOFF
	DISMIS
	AOS CLOCK
	MOVEI 10,0
	JRST 2,.+1(10)
	MOVE 1,FOOM
	MOVEM 1,FOO#
	TTREAD FOO	;READ A KEY
	MOVE 1,FOO
	TRNN 1,1000	;META KEY
	JRST B1ON
	AOS OFFC1
	SETZM ONC1
CK2:	TRNN 1,400	;CONTROL KEY
	JRST B2ON
	AOS OFFC2
	SETZM ONC2
	SKIPE ONC1
	JRST TEST2
	SKIPN FT
	DISMIS
	MOVEI =600
	CAMLE OFFC1
	DISMIS
	CAMLE OFFC2
	DISMIS
	SETOM TOFF
	DISMIS
B1ON:	SETZM OFFC1
	AOS ONC1
	MOVEI 2	;ADDR IS # OF TICS SW MUST BE CLOSED
	CAME ONC1
	JRST CK2
	SKIPE FT
	JRST EVENT
	SETOM FT
	SETZM LCLK
	DISMIS
B2ON:	SETZM OFFC2
	AOS ONC2
	MOVEI 2	;ADDR IS # OF TICS SW MUST BE CLOSED
	CAME ONC2
	JRST TEST2
	SKIPE FT
	JRST EVENT
	SETOM FT
	SETZM LCLK
	DISMIS
TEST2:	MOVEI =200
	CAMG ONC1
	JRST TG1
	CAMLE ONC2
	DISMIS
TG1:	SETZM TOFF
	SETZM FT
	SETZM I
	DISMIS
EVENT:	SKIPE LCLK
	JRST TG2
	SETZM I#
	SETZM 1
	SETOM LCLK
	JRST TG3
TG2:	MOVE CLOCK
	SUB OCLOCK
	FSC 233
	FMPR TICL
	MOVE 1,I
B1:	MOVEM 0(1)
	AOS I
TG3:	MOVE CLOCK
	MOVEM OCLOCK#
	CAIGE 1,=500
	DISMIS
	SETOM TOFF
	DISMIS
TICL:	0.01666667 
	END